# 随机抽样
# sample()

sample(x, size, replace = FALSE, prob = NULL)

# 等可能不放回抽样
# 抽牌
sample(1:52, 4)


# 等可能有放回抽样
# sample(x, n, replace=TRUE)
# 丢硬币
sample(c("H", "T"), 10, replace=T)
# 掷骰子10次可表示为:
sample(1:6, 10, replace=T)

# 不等可能抽样
# 医生手术
sample(c("成功", "失败"), 10, replace=T, prob=c(0.9,0.1))


# 练习:
#   1. 丢硬币100次，有放回，问：正面的数量？（参考函数sum()）
#   2. 记得paste()函数吗，尝试使用它构造一副牌
#       例如红桃1,..,红桃13;黑桃1,...,黑桃13;方块1,...,方块13;梅花1,...,梅花13;大王,小王，
#       从中抽20张。
#       附加题：如果随机抽取10次，哪张牌出现频率最高？哪些牌一次都没被抽中过？
#   3. 成功率0.9的手术，做100次，问成功次数。









# 解答：

X = sample(c('H','T'),100,replace = T)
sum(X=='T')

sample(c(paste('红桃',1:13,sep=''),paste('黑桃',1:13,sep=''),
         paste('方块',1:13,sep=''),paste('梅花',1:13,sep=''),c('大王','小王')),20)


Y = sample(c(0,1),100,replace = T,prob = c(0.1,0.9))
sum(Y==1)
